home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / multimedia / codes.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-03-17  |  11.9 KB  |  413 lines
  1. /*
  2. Copyright (c) 1991 Bell Communications Research, Inc. (Bellcore)
  3.  
  4. Permission to use, copy, modify, and distribute this material 
  5. for any purpose and without fee is hereby granted, provided 
  6. that the above copyright notice and this permission notice 
  7. appear in all copies, and that the name of Bellcore not be 
  8. used in advertising or publicity pertaining to this 
  9. material without the specific, prior written permission 
  10. of an authorized representative of Bellcore.  BELLCORE 
  11. MAKES NO REPRESENTATIONS ABOUT THE ACCURACY OR SUITABILITY 
  12. OF THIS MATERIAL FOR ANY PURPOSE.  IT IS PROVIDED "AS IS", 
  13. WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES.
  14. */
  15. #include <stdio.h>
  16. #include <ctype.h>
  17. /* #include <config.h> */
  18. #define    NEWLINE_CHAR 10
  19.  
  20. extern char *index();
  21. static char basis_64[] =
  22.    "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  23.  
  24. static char index_64[128] = {
  25.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  26.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  27.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,62, -1,-1,-1,63,
  28.     52,53,54,55, 56,57,58,59, 60,61,-1,-1, -1,-1,-1,-1,
  29.     -1, 0, 1, 2,  3, 4, 5, 6,  7, 8, 9,10, 11,12,13,14,
  30.     15,16,17,18, 19,20,21,22, 23,24,25,-1, -1,-1,-1,-1,
  31.     -1,26,27,28, 29,30,31,32, 33,34,35,36, 37,38,39,40,
  32.     41,42,43,44, 45,46,47,48, 49,50,51,-1, -1,-1,-1,-1
  33. };
  34.  
  35. #define char64(c)  (((c) < 0 || (c) > 127) ? -1 : index_64[(c)])
  36.  
  37. /*
  38. char64(c)
  39. char c;
  40. {
  41.     char *s = (char *) index(basis_64, c);
  42.     if (s) return(s-basis_64);
  43.     return(-1);
  44. }
  45. */
  46.  
  47. /* the following gets a character, but fakes it properly into two chars if there's a newline character */
  48. static int InNewline=0;
  49.  
  50. int nextcharin(infile, PortableNewlines)
  51. FILE *infile;
  52. int PortableNewlines;
  53. {
  54.     int c;
  55.  
  56.     if (!PortableNewlines) return(getc(infile));
  57.     if (InNewline) {
  58.         InNewline = 0;
  59.         return(10); /* LF */
  60.     }
  61.     c = getc(infile);
  62.     if (c == NEWLINE_CHAR) {
  63.         InNewline = 1;
  64.         return(13); /* CR */
  65.     }
  66.     return(c);
  67. }
  68.  
  69. to64(infile, outfile, PortableNewlines) 
  70. FILE *infile, *outfile;
  71. int PortableNewlines;
  72. {
  73.     int c1, c2, c3, ct=0;
  74.     InNewline = 0; /* always reset it */
  75.     while ((c1 = nextcharin(infile, PortableNewlines)) != EOF) {
  76.         c2 = nextcharin(infile, PortableNewlines);
  77.         if (c2 == EOF) {
  78.             output64chunk(c1, 0, 0, 2, outfile);
  79.         } else {
  80.             c3 = nextcharin(infile, PortableNewlines);
  81.             if (c3 == EOF) {
  82.                 output64chunk(c1, c2, 0, 1, outfile);
  83.             } else {
  84.                 output64chunk(c1, c2, c3, 0, outfile);
  85.             }
  86.         }
  87.         ct += 4;
  88.         if (ct > 71) {
  89.             putc('\n', outfile);
  90.             ct = 0;
  91.         }
  92.     }
  93.     if (ct) putc('\n', outfile);
  94.     fflush(outfile);
  95. }
  96.  
  97. output64chunk(c1, c2, c3, pads, outfile)
  98. FILE *outfile;
  99. {
  100.     putc(basis_64[c1>>2], outfile);
  101.     putc(basis_64[((c1 & 0x3)<< 4) | ((c2 & 0xF0) >> 4)], outfile);
  102.     if (pads == 2) {
  103.         putc('=', outfile);
  104.         putc('=', outfile);
  105.     } else if (pads) {
  106.         putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile);
  107.         putc('=', outfile);
  108.     } else {
  109.         putc(basis_64[((c2 & 0xF) << 2) | ((c3 & 0xC0) >>6)], outfile);
  110.         putc(basis_64[c3 & 0x3F], outfile);
  111.     }
  112. }
  113.  
  114. PendingBoundary(s, Boundaries, BoundaryCt)
  115. char *s;
  116. char **Boundaries;
  117. int *BoundaryCt;
  118. {
  119.     int i;
  120.  
  121.     for (i=0; i < *BoundaryCt; ++i) {
  122.         if (!strncmp(s, Boundaries[i], strlen(Boundaries[i]))) {
  123.             char Buf[2000];
  124.             strcpy(Buf, Boundaries[i]);
  125.             strcat(Buf, "--\n");
  126.             if (!strcmp(Buf, s)) *BoundaryCt = i;
  127.             return(1);
  128.         }
  129.     }
  130.     return(0);
  131. }
  132.  
  133. /* If we're in portable newline mode, we have to convert CRLF to the 
  134.     local newline convention on output */
  135.  
  136. static int CRpending = 0;
  137.  
  138. almostputc(c, outfile, PortableNewlines)
  139. int c;
  140. FILE *outfile;
  141. int PortableNewlines;
  142. {
  143.     if (CRpending) {
  144.         if (c == 10) {
  145.             putc(NEWLINE_CHAR, outfile);
  146.         } else {
  147.             putc(13, outfile);
  148.             putc(c, outfile);
  149.         }
  150.         CRpending = 0;
  151.     } else {
  152.         if (PortableNewlines && c == 13) {
  153.             CRpending = 1;
  154.         } else {
  155.             putc(c, outfile);
  156.         }
  157.     }
  158. }
  159.  
  160. from64(infile, outfile, boundaries, boundaryct, PortableNewlines) 
  161. FILE *infile, *outfile;
  162. char **boundaries;
  163. int *boundaryct;
  164. int PortableNewlines;
  165. {
  166.     int c1, c2, c3, c4;
  167.     int newline = 1, DataDone = 0;
  168.  
  169.     /* always reinitialize */
  170.     CRpending = 0;
  171.     while ((c1 = getc(infile)) != EOF) {
  172.         if (isspace(c1)) {
  173.             if (c1 == '\n') {
  174.                 newline = 1;
  175.             } else {
  176.                 newline = 0;
  177.             }
  178.             continue;
  179.         }
  180.         if (newline && boundaries && c1 == '-') {
  181.             char Buf[200];
  182.             /* a dash is NOT base 64, so all bets are off if NOT a boundary */
  183.             ungetc(c1, infile);
  184.             fgets(Buf, sizeof(Buf), infile);
  185.             if (boundaries
  186.                  && (Buf[0] == '-')
  187.                  && (Buf[1] == '-')
  188.                  && PendingBoundary(Buf, boundaries, boundaryct)) {
  189.                 return;
  190.             }
  191.             fprintf(stderr, "Ignoring unrecognized boundary line: %s\n", Buf);
  192.             continue;
  193.         }
  194.         if (DataDone) continue;
  195.         newline = 0;
  196.         do {
  197.             c2 = getc(infile);
  198.         } while (c2 != EOF && isspace(c2));
  199.         do {
  200.             c3 = getc(infile);
  201.         } while (c3 != EOF && isspace(c3));
  202.         do {
  203.             c4 = getc(infile);
  204.         } while (c4 != EOF && isspace(c4));
  205.         if (c2 == EOF || c3 == EOF || c4 == EOF) {
  206.             fprintf(stderr, "Premature EOF!\n");
  207.             return;
  208.         }
  209.         if (c1 == '=' || c2 == '=') {
  210.             DataDone=1;
  211.             continue;
  212.         }
  213.         c1 = char64(c1);
  214.         c2 = char64(c2);
  215.         almostputc(((c1<<2) | ((c2&0x30)>>4)), outfile, PortableNewlines);
  216.         if (c3 == '=') {
  217.             DataDone = 1;
  218.         } else {
  219.             c3 = char64(c3);
  220.             almostputc((((c2&0XF) << 4) | ((c3&0x3C) >> 2)), outfile, PortableNewlines);
  221.             if (c4 == '=') {
  222.                 DataDone = 1;
  223.             } else {
  224.                 c4 = char64(c4);
  225.                 almostputc((((c3&0x03) <<6) | c4), outfile, PortableNewlines);
  226.             }
  227.         }
  228.     }
  229.     if (CRpending) putc(13, stdout);
  230. }
  231.  
  232. static char basis_hex[] = "0123456789ABCDEF";
  233. static char index_hex[128] = {
  234.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  235.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  236.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  237.      0, 1, 2, 3,  4, 5, 6, 7,  8, 9,-1,-1, -1,-1,-1,-1,
  238.     -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  239.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  240.     -1,10,11,12, 13,14,15,-1, -1,-1,-1,-1, -1,-1,-1,-1,
  241.     -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1, -1,-1,-1,-1
  242. };
  243.  
  244. #define hexchar(c)  (((c) < 0 || (c) > 127) ? -1 : index_hex[(c)])
  245.  
  246. /*
  247. hexchar(c)
  248. char c;
  249. {
  250.     char *s;
  251.     if (islower(c)) c = toupper(c);
  252.     s = (char *) index(basis_hex, c);
  253.     if (s) return(s-basis_hex);
  254.     return(-1);
  255. }
  256. */
  257.  
  258. toqp(infile, outfile) 
  259. FILE *infile, *outfile;
  260. {
  261.     int c, ct=0, prevc=255;
  262.     while ((c = getc(infile)) != EOF) {
  263.         if ((c < 32 && (c != '\n' && c != '\t'))
  264.              || (c == '=')
  265.              || (c >= 127)
  266.              /* Following line is to avoid single periods alone on lines,
  267.                which messes up some dumb smtp implementations, sigh... */
  268.              || (ct == 0 && c == '.')) {
  269.             putc('=', outfile);
  270.             putc(basis_hex[c>>4], outfile);
  271.             putc(basis_hex[c&0xF], outfile);
  272.             ct += 3;
  273.             prevc = 'A'; /* close enough */
  274.         } else if (c == '\n') {
  275.             if (prevc == ' ' || prevc == '\t') {
  276.                 putc('=', outfile); /* soft & hard lines */
  277.                 putc(c, outfile);
  278.             }
  279.             putc(c, outfile);
  280.             ct = 0;
  281.             prevc = c;
  282.         } else {
  283.             if (c == 'F' && prevc == '\n') {
  284.                 /* HORRIBLE but clever hack suggested by MTR for sendmail-avoidance */
  285.                 c = getc(infile);
  286.                 if (c == 'r') {
  287.                     c = getc(infile);
  288.                     if (c == 'o') {
  289.                         c = getc(infile);
  290.                         if (c == 'm') {
  291.                             c = getc(infile);
  292.                             if (c == ' ') {
  293.                                 /* This is the case we are looking for */
  294.                                 fputs("=46rom", outfile);
  295.                                 ct += 6;
  296.                             } else {
  297.                                 fputs("From", outfile);
  298.                                 ct += 4;
  299.                             }
  300.                         } else {
  301.                             fputs("Fro", outfile);
  302.                             ct += 3;
  303.                         }
  304.                     } else {
  305.                         fputs("Fr", outfile);
  306.                         ct += 2;
  307.                     }
  308.                 } else {
  309.                     putc('F', outfile);
  310.                     ++ct;
  311.                 }
  312.                 ungetc(c, infile);
  313.                 prevc = 'x'; /* close enough -- printable */
  314.             } else { /* END horrible hack */
  315.                 putc(c, outfile);
  316.                 ++ct;
  317.                 prevc = c;
  318.             }
  319.         }
  320.         if (ct > 72) {
  321.             putc('=', outfile);
  322.             putc('\n', outfile);
  323.             ct = 0;
  324.             prevc = '\n';
  325.         }
  326.     }
  327.     if (ct) {
  328.         putc('=', outfile);
  329.         putc('\n', outfile);
  330.     }
  331. }
  332.  
  333. fromqp(infile, outfile, boundaries, boundaryct) 
  334. FILE *infile, *outfile;
  335. char **boundaries;
  336. int *boundaryct;
  337. {
  338.     int c1, c2, sawnewline = 1, neednewline = 0;
  339.     /* The neednewline hack is necessary because the newline leading into 
  340.       a multipart boundary is part of the boundary, not the data */
  341.  
  342.     while ((c1 = getc(infile)) != EOF) {
  343.         if (sawnewline && boundaries && (c1 == '-')) {
  344.             char Buf[200], *s;
  345.  
  346.             ungetc(c1, infile);
  347.             fgets(Buf, sizeof(Buf), infile);
  348.             if (boundaries
  349.                  && (Buf[0] == '-')
  350.                  && (Buf[1] == '-')
  351.                  && PendingBoundary(Buf, boundaries, boundaryct)) {
  352.                 return;
  353.             }
  354.             /* Not a boundary, now we must treat THIS line as q-p, sigh */
  355.             if (neednewline) {
  356.                 putc('\n', outfile);
  357.                 neednewline = 0;
  358.             }
  359.             for (s=Buf; *s; ++s) {
  360.                 if (*s == '=') {
  361.                     if (!*++s) break;
  362.                     if (*s == '\n') {
  363.                         /* ignore it */
  364.                         sawnewline = 1;
  365.                     } else {
  366.                         c1 = hexchar(*s);
  367.                         if (!*++s) break;
  368.                         c2 = hexchar(*s);
  369.                         putc(c1<<4 | c2, outfile);
  370.                     }
  371.                 } else {
  372. #ifdef MSDOS
  373.                     if (*s == '\n')
  374.                         putc('\r', outfile);    /* insert CR for binary-mode write */
  375. #endif
  376.                     putc(*s, outfile);
  377.                 }
  378.             }
  379.         } else {
  380.             if (neednewline) {
  381.                 putc('\n', outfile);
  382.                 neednewline = 0;
  383.             }
  384.             if (c1 == '=') {
  385.                 sawnewline = 0;
  386.                 c1 = getc(infile);
  387.                 if (c1 == '\n') {
  388.                     /* ignore it */
  389.                     sawnewline = 1;
  390.                 } else {
  391.                     c2 = getc(infile);
  392.                     c1 = hexchar(c1);
  393.                     c2 = hexchar(c2);
  394.                     putc(c1<<4 | c2, outfile);
  395.                     if (c2 == '\n') sawnewline = 1;
  396.                 }
  397.             } else {
  398.                 if (c1 == '\n') {
  399.                     sawnewline = 1;
  400.                     neednewline = 1;
  401.                 } else {
  402.                     sawnewline = 0;
  403.                     putc(c1, outfile);
  404.                 }
  405.             }
  406.         }
  407.     }
  408.     if (neednewline) {
  409.         putc('\n', outfile);
  410.         neednewline = 0;
  411.     }    
  412. }
  413.